home *** CD-ROM | disk | FTP | other *** search
/ IRIS Performer 2.2 Friends Demo / SGI IRIS Performer 2.2 Friends Demo.iso / friends / openworlds / tix / EFileDlg.tcl < prev    next >
Text File  |  1997-11-22  |  1KB  |  42 lines
  1. tixWidgetClass tixExFileSelectDialog {
  2.     -classname TixExFileSelectDialog
  3.     -superclass tixDialogShell
  4.     -method {}
  5.     -flag   {
  6.     -command
  7.     }
  8.     -configspec {
  9.     {-command command Command {}}
  10.  
  11.     {-title title Title "Select A File"}
  12.     }
  13. }
  14.  
  15. proc tixExFileSelectDialog::ConstructWidget {w} {
  16.     upvar #0 $w data
  17.  
  18.     tixChainMethod $w ConstructWidget
  19.     set data(w:fsbox) [tixExFileSelectBox $w.fsbox -dialog $w \
  20.     -command $data(-command)]
  21.     pack $data(w:fsbox) -expand yes -fill both
  22. }
  23.  
  24. proc tixExFileSelectDialog::config-command {w value} {
  25.     upvar #0 $w data
  26.  
  27.     $data(w:fsbox) config -command $value
  28. }
  29.  
  30. proc tixExFileSelectDialog::SetBindings {w} {
  31.     upvar #0 $w data
  32.  
  33.     tixChainMethod $w SetBindings
  34.  
  35.     bind $w <Alt-Key-f> "focus [$data(w:fsbox) subwidget file]"
  36.     bind $w <Alt-Key-t> "focus [$data(w:fsbox) subwidget types]"
  37.     bind $w <Alt-Key-d> "focus [$data(w:fsbox) subwidget dir]"
  38.     bind $w <Alt-Key-o> "tkButtonInvoke [$data(w:fsbox) subwidget ok]"
  39.     bind $w <Alt-Key-c> "tkButtonInvoke [$data(w:fsbox) subwidget cancel]"
  40.     bind $w <Alt-Key-s> "tkButtonInvoke [$data(w:fsbox) subwidget hidden]"
  41. }
  42.